home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)z6.d64 / proc.plotter < prev    next >
Text File  |  2009-01-03  |  607b  |  30 lines
  1. 0010 //LIST"PLOTTER.L"
  2. 0020 //
  3. 0030 // BY ╒NI├OMAL ┴P╙. FEB. 1984
  4. 0040 //
  5. 0050 
  6. 0060 PI:=4*┴╘╬(1)
  7. 0070 
  8. 0080 ╧╨┼╬ ╞╔╠┼ 1,"U6:/S1"
  9. 0090 ╧╨┼╬ ╞╔╠┼ 2,"U6:/S2"
  10. 0100 
  11. 0110 ╨╥╔╬╘ ╞╔╠┼ 2: "1"
  12. 0120 ╨╥╔╬╘ ╞╔╠┼ 1: "I"
  13. 0130 
  14. 0140 ╙┼╠┼├╘ ╧╒╘╨╒╘ "LP:"
  15. 0150 ╞╧╥ I:=0 ╘╧ 2*PI ╙╘┼╨ .07 ─╧
  16. 0160   X:=╔╬╘(I/(2*PI)*999)
  17. 0170   Y:=╔╬╘(240+240*╙╔╬(I))
  18. 0180   A$:="J "+╙╘╥$(Y)+" "+╙╘╥$(X)
  19. 0190   B$:="J "+╙╘╥$(Y)+" "+╙╘╥$(-1*X)
  20. 0200   ╨╥╔╬╘ A$
  21. 0210   ╨╥╔╬╘ B$
  22. 0220   ╨╥╔╬╘ ╞╔╠┼ 1: "R 0 0"
  23. 0230   ╨╥╔╬╘ ╞╔╠┼ 1: A$
  24. 0240   ╨╥╔╬╘ ╞╔╠┼ 1: "R 0 0"
  25. 0250   ╨╥╔╬╘ ╞╔╠┼ 1: B$
  26. 0260 ┼╬─╞╧╥ I
  27. 0270 ╙┼╠┼├╘ ╧╒╘╨╒╘ "DS:"
  28. 0280 
  29. 0290 ├╠╧╙┼ ╞╔╠┼ 6
  30.